home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / TRX_Tools.lha / TritonRexx-Tools / Install < prev    next >
Encoding:
Text File  |  1995-11-07  |  3.1 KB  |  145 lines
  1. ;
  2. ; Skript für die Installation der libraries und Skripten
  3. ;
  4.  
  5. ;===========================================================================
  6. ; deutsche strings
  7. (if (= @language "deutsch")
  8.     (
  9.         (set default_mask 15)
  10.         
  11.         (set #bad-kick "Es wird Kickstart 37.175 (OS 2.04) oder höher benötigt.")
  12.         (set #old-lib "Sie besitzen eine ältere")
  13.         (set #old-lib2"Ich installiere jetzt eine neuere Version nach LIBS:")
  14.         (set rexxtrickslib "libs/rexxtricks.library")
  15.         (set rexxtrickslib "libs/tritonrexx.library")
  16.         (welcome "Wilkommen bei der Skripten installation.")
  17.         (set #install-msg
  18.             (cat "\nInstallation Skript für Triton ARexx-Skripten\n"
  19.                  "Dieses Skript installiert PGP2GUI, Exchange,\n"
  20.                              "Break und ChangeStartPRI auf Ihren Amiga.\n\n"
  21.                  "© 1995 von Nils Görs"
  22.             )
  23.         )
  24.         
  25.         (set #dir "In welches Verzeichnis sollen die Skripten kopiert werden?")
  26.  
  27.     )
  28. )
  29. ;===========================================================================
  30. ; Welche Betriebssystemversion steht zur verfügung ?
  31.  
  32. (if (< (/ (getversion) 65536) 37)
  33.     (
  34.         (message #bad-kick)
  35.         (exit (quiet))
  36.     )
  37. )
  38. ;===========================================================================
  39.  
  40. (message #install-msg)
  41.  
  42. ;===========================================================================
  43. ; Libraries installieren
  44.  
  45. (if (> (/ (getversion ("Libs:rexxtricks.library")) 65536)38)
  46.     (
  47.         (message #old-lib " rexxtricks.library\n" #old-lib2)
  48.         (copylib
  49.          (help @copylib-help)
  50.          (source rexxtrickslib)
  51.          (dest "Libs:")
  52.          (confirm)
  53. )
  54.     )
  55. )
  56.  
  57. (if (> (/ (getversion ("Libs:tritonrexx.library")) 65536)37)
  58.     (
  59.         (message #old-lib " tritonrexx.library\n" #old-lib2)
  60.         (copylib
  61.          (help @copylib-help)
  62.          (source tritonrexxlib)
  63.          (dest "Libs:")
  64.          (confirm)
  65. )
  66.     )
  67. )
  68.  
  69. ;===========================================================================
  70. ; Zielverzeichnis erfragen.
  71.  
  72. (set @default-dest
  73.     (askdir
  74.         (prompt #dir)
  75.         (help @askdir-help)
  76.         (default "REXX:")
  77.     )
  78. )
  79.  
  80. ;===========================================================================
  81. ; Skripten installieren.
  82.  
  83. (set mask
  84.     (askoptions
  85.        (prompt #test)
  86.        (help #langage-help)
  87.        (default default_mask)
  88.        (choices
  89.         "Break"
  90.         "ChangeStartPRI"
  91.         "Exchange"
  92.         "PGP2GUI"
  93.        )
  94.     )
  95. )
  96.  
  97.         (set n 0)
  98.         (while
  99.             (set select_script
  100.                 (select n
  101.                     "Break"
  102.                     "ChangeStartPRI"
  103.                     "Exchange"
  104.                     "PGP2GUI"
  105.                     ""
  106.                 )
  107.             )
  108.             (
  109.                 (if (AND (IN mask n) )
  110.                     (
  111.                         (copyfiles
  112.                             (prompt "")
  113.                             (source select_script)
  114.                             (dest @default-dest)
  115.                             (pattern "#?.rexx")
  116.                             (confirm)
  117.                         )
  118.                     )
  119.                 )
  120.                 (set n (+ n 1))
  121.             )
  122.         )
  123.  
  124. ;===========================================================================
  125. ; und jetzt noch Zusatzdaten kopieren.
  126.  
  127. (message "\nDas Programm 'HandleCX' wird von 'Exchange.rexx'\n"
  128.          "benötigt, 'HandleCX' wird deshalb jetzt nach C: kopiert.\n")
  129. (copyfiles
  130.    (help @copyfiles-help)
  131.    (source "HandleCX")
  132.    (dest "C:")
  133.    (pattern "HandleCX")
  134.    (files)
  135.    (confirm)
  136. )
  137.  
  138. (message "\nDas Programm 'FlushTRX' wird jetzt nach C: kopiert")
  139.  
  140. (copyfiles
  141.    (help @copyfiles-help)
  142.    (source "FlushTRX")
  143.    (dest "C:")
  144.    (files)
  145.    (confirm)
  146. )
  147.